home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
info
/
cad08n11.zip
/
TEST1.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1994-02-01
|
297b
|
13 lines
(defun C:test ()
(setq s (getstring "\nType something in. "))
(terpri)(prompt s)
(princ "\nThis is a test without an error. ")
(princ)
)
(defun *error* (msg)
(princ "\nAn error has occurred! ")
(princ "\nThe error was: ")(prompt msg)(prompt " ")
(princ)
)